home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / VideoEasel.lha / Video Easel / CAMRexx / CAMParityFlip.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-31  |  349b  |  18 lines
  1. /* CAM-Parity-Flip 1.00 © THOR 1995 by an idea of Toffoli */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM neumann centers
  5. return
  6.  
  7. MakePlane:
  8.    if plane=0 then; do
  9.       newplane=center ^ north ^ south ^ west ^ east ^ center_
  10.       if newplane=0 then   SETPLANE off
  11.       else                 SETPLANE on
  12.    end; else; do
  13.       SETPLANE center
  14.    end
  15. return
  16.  
  17.  
  18.